home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / giochi / giochi4 / wrmsshll.lha / Make_Report < prev    next >
Text File  |  1996-11-25  |  797b  |  37 lines
  1. assign >nil: env: exists
  2. if warn
  3.     assign env: ram:
  4. endif
  5. assign >nil: t: exists
  6. if warn
  7.     assign t: ram:
  8. endif
  9. ;Get report file name
  10. which >nil: requestfile
  11. if warn
  12.     echo "Please enter report file name: "
  13.     set >nil: report ?
  14. else
  15.     set report `requestfile title "Please enter report file name" noicons savemode`
  16. endif
  17.  
  18. ;Report system configuration
  19. echo "*n--- SYSTEM CONFIGURATION ---*n" >$ouput
  20. which >nil: showconfig
  21. if warn
  22.     echo >>$report "Please fill in your system configuration here."
  23. else
  24.     showconfig >>$report
  25. endif
  26.  
  27. ;Add SnoopDos log to report
  28. echo "*n--- SNOOPDOS LOG ---*n" >>$report
  29. type LOG:SnoopDos.log >>$report
  30.  
  31. ;Add Enforcer.log to report
  32. echo "*n--- ENFORCER LOG ---*n" >>$report
  33. type LOG:Enforcer.log >>$report
  34.  
  35. ;Remove temporary log drive
  36. remrad LOG: force
  37.